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مقدمة حول ملفات 511 


ملفات 511 Îو‏ مأفاٽ DynamicLinkLibrary‏ 
وتسمى مكتبات الربط الديناميكي أو المرن بالعربية 
وهي ملفات تأخذ امتداد .11 
هي ملفات مساعدة للبرنامج الرئيسي الذي يأخذ امتداد 
EXE.‏ 

ویمکن القول عنھا انها بر امج صغیر Sma11Prograı ö‏ 
لأنها تتبع لبرنامج آخر ولا تستطيع أن تعمل مباشرة 
غالبا ما تكون محملة بدوال وإجراءات 


تساعد المبرمج على إتمام برامجه 


تبرمج هذه الملفات عبر مختلف لغات البرمجة وهي 


صالحة لجميعها أي إذا برمجت 
مكتبة بالسي ++ تستطيع استعمالها 
في الدلفي أو أي لغة أخرى 
هذه الملفات تكون صغيرة الحجم 
a‏ 
ويجب إرفاقها بالبرنامج الرئيسي لأنه لو يكون عناك خلل في الربط 


ربما تثقل الذاكرة وعدم اشتغال البرنامج تماما 


RI TERETE 


بنسبة %37 في أنظمة التشغيل ويندوز 
وابرز مکتبتین هما 
مكتيب Kernce|32.1]‏ 


و مکتبۂ ]1 .132٥یا‏ 


حيث أن هذه المكتبات تمثل القلب النابض لنظام التشغيل 


وهناك الكثير من المكتبات في نظام الويندوز 


كيف تبرمج ملفات الربط الديناميكي : 


LE E ae eT 
- ; Bendalî 

i ome Soft 
3 Pro 


f’ Lopier fF Hêriter f Utilise 
Arruler عا‎ 


ستظهر الشاشة التالية 


BSP 
a 
ia | <. f۴ 


library Test; 


Classes; iro 
1 اا‎ 
{SR res a 
و‎ 
beqin . 
end . 


Test | 
| Mibrary Teast; 
uses 


SYSUtILS, 
Classes, Dialogs: | 


BST 
Bendali 
| Soft 
Pro 


نأتي الآن لشرح ما كتبناه 


1: قمنا باضافة الوحدة وعم][ه1( التي تتضمن الميساج 
2: قمنا بتعریف اجراء اسمه عی٧‏ 85۴ فيه بارامتر واحد من نوع نصي 
3: قمنا باستدعاء الدالة معهوومNس0ط؟‏ التي تحوي بارامتر واحد وهو 
نص الرسالة ونحن اسندنا نص الرسالة للمتغير الدي صنعناه وهو 
امه فبالتالي نص يدخله المستخدم 
ا 


وفي مكتبتنا نحن صدرنا الإجرlء BSP_ Msg‏ 


الآن بعدما كتبنا الاكواد المطلوبة نحفظ المشروع بأي اسم نريد 
آنا حفظتها باسم ی۲6 


الآن نعمل الخطوة التالية 


Volr le source 
Ajouter un nouveau pf 


Ajouter in projet existant.. 


ÛL Compiler Test Am Ltrl+ F4 
Ill 
1 Construire Tes 
Ill 
lw Vêrifier la syntaxe de Test 
3 Informations pour [aucun] 
ا‎ Lompller tous les projets 
* Construire tous les projets 
Ill 
Options... Maj+ Ctrl+ F11 


الآن تم صنع مكتبة الربط الخاصة بنا مبروك 


Test.dll 


الآن انجزنا المكتبة بقي الربط 


حسنا نفتح مشروع عادي وندرج به زر واحد ھکدا 


٣ gy ÎT Fm j = mw HHo rr Ff mam = me س‎ 1 5 ٦ و‎ 
ITOCEATAT اس‎ BSF f] 1S [| CAG TH: SLE 


AJ :stdcall;external "test. d11! ; 


age ag me Gn 


procedoare TForml .ButtonlClick (Sender: Tobject)} ; 
begin 
BSP Msg ('Welcom Test For Oll1l Tourc'"}; 
end; 


الشرح : 


الأصر؛ الاتصال ين الكت وارد 


الآن نضغط ۳9 ونری 


Button 


iî Bendali ` 
Î Soft 
FF Fro 


مبروك النتيجة واضحة %100 


ON PTE TE 
قد الكثير في أخطاء الربط وليس البرمجة‎ 
ولهذا ارتأيت أن أضع هذا ضمن الدورة البسيطة‎ 
من أخطاء الربط‎ 


procedure BSP Msg (Caption : String) ;stdcall;external 'Test.dll' 


انظروا هذه طريقة الربط الصحيح 


فهنا ue‏ ل6٥٠۴‏ التي انشأناها في المكتبة وبالتالي البداية صحيحة 


85S Mg‏ وهو اسم الإجراء الذي انشأناه فهنا البداية موفقة جدا 
وضعنا البارامترات نفسها الموجودة في المكتبة 
وضعنا الفواصل المنقوطة وليست الفواصل فقط 
ووضعنا مصدر المكتبة وهو في ملف البرنامج 
هنا الطريقة سليمة 100 


انظروا لهاته الطريقة 


procedure BSP Msg (Caption : String)|:external "Test. ALI"; 


هنا كل شيء صحيح لكن لم تدر ج 11جءل)ء قبل المصدر 


وبالتالي الربط خاطى 


procedure BSP Msg (Caption : String) ,stdcal1,pkzxternal 2 ata ; 


هنا کل شيء صحیح وممتاز 
لكن عو ضت الفواصل المنقوطة بفواصل عادية 
وهذا خطاً ولن يتم الربط هنا 


a TE TEE GE 1# iE iNT, 
Function BSP Msg (Caption : string) , stdcal1, externa “E ê MF 
: ج‎ Ti ril" 


آه هنا الخطاً الفادح 
وهو تعويض الإجراء بدالة 
وعدم إسناد القيمة النهائية للدالة 
No OT‏ 
وهذا خطأ فادح جدا 


وهنا لن يتم الربط أصلا 


Frocednre BSP Msg (Captior 2 


أ هنا الخطاء کثرت 


بعدم وضع نوع الدالة وفي المكتبة برمجناه على انه 
نوع نصي 9)۲118 
بالإضافة للفواصل المنقو طة أيست موجودة 


وعوضت بفواصل عادية 


وهنا اكبر خطأ حيث لن يتم الربط أصلا ولن يشتغل البرنامج 


الآن نمر للخطأ الأكبر وهو عدم وضع المكتبة مع ملفات البرنامج 


وسيكون الربط هكذا 


ence 


nda EY 
ا‎ 
fro 


procedure BSP Msg (Caption : String) ;stdcall;external 'Test.dll' 


تأتي رسالة الخطأ التالية 


ae ت‎ 


a 


| 4 ı Impossible de dêmarrer le programme car Il manque Test.dll sur votre 


problêrme, 


التي تقول لنا بأن المكتبة غير موجودة 


بالتالي لن يشتغل البرنامج أصلا 


برمجة ملفات _]]05 بأوامر لغة الاسمبلى : 


ee 


12 


Application 

Expert 1LL ICE Fichier ba : SP 

CA Bendali 

Module de Objet Thread ي‎ 8 1 

donnêes : of 

Eh : 

3 : ETO 4٠4 

f7 Lopiert F7 Hêrter fF Uliliser > 
Arrular عاب‎ 


library Test; 


BSP 
e 
E ١ ٠ 9 0 ۴ آ‎ 
Classes; | Ero 
{$R *.res} A 


beqin 


endl . 


SS BeP dor 
ğ p 


library ESP;‏ ا ك 
uses‏ | 

SyYSUTILS, 
Classea; 


ISR ™*.res} 2 
Function ESP Dll (Huml : Integer; Hum2 : Integer) : Integer; SLdcall;export; > 


TAF 
A,B : Integer ; 
| begin 
A := Huml 7F 
B := Numa ; 
asm 
HOV EAX,A 
ADD B,EAX 
end ; 
BSP Dll := B; 
end ; 


|exports 
BSP Dll: 


begin 


end . 


7 e 


Insert 


نأتي الآن لشرح ما كتبناه 
1: قمنا بتعريف دالة اسمه 88۶_511 فيه بارامترین 2 من نوع أرقام 
3 قمنا بتعریف متغیرین من نوع أرقام سمیناهما ۸ و 8 
سندنا قیمة 1ں" إلی ۸ وقیمة 2ں" إلى 8 
صرحنا باستخدام الاسمبلي 
استعملنا الأمر ۸0۷ لنقل محتوی ۸ إلى المسجل × E٤۸‏ 


وقمنا باستعمال الأمر ۸55 لجمع قيمة ×8۸ و 8 وقيمة 


14 


۸ هي قیمة‎ ٤۸× 
انهينا استخدام الاسمبلي‎ 
۸+8 إسناد قيمة الدالة لقيمة 8 التي تساوي‎ 
انهينا الدالة‎ 


4 هنا قسم الدوال المصدرة 


وفي مكتبتنا نحن صدرنا الدالة 859۲_11 


الآن بعدما كتبنا الاكواد المطلوبة نحفظ المشروع بأي اسم نريد 
آنا حفظتها باسم B8۶‏ 


الآن نعمل الخطوة التالية 


Project | Eun Lomponent Databa 


yı Bendali 
. Soft 
Pro 4 


Cliquez ici | 


TUE ba PP 


Ltrl+ F9 


BsP.dll 
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الآن أنجزنا المكتبة بقي الربط 


حسنا نفتح مشروع من نوع کونسول 


تم <i‏ 1 التالى 


" ESP Pip 
= Pp 


اک 
a۰3 Procedures‏ 
A-A Uses‏ 


{ Ş$APPTYPE CONSOLE} 


uses 
SyYSUTIil13,; 


الشرح : 
الاتصال بين المكتبة والبرنامج 


كتابة سطر يحتوي على الدالة التي انشأناها 


وبها الارقام 10 و 100 


الآن نضغط ۳9 ونری 


= ` E Autre Disque\Bureau\DLL Tour On Delphi NSource\3\ESP_P.exe اسک )ا‎ 
ھت‎ og 


Bendo اة‎ a يڼټری‎ 


مبروك النتيجة واضحة %100 


اذا كان هناك خطأ او أي استفسار راسلوني 
على البريد الالكتروني التالي : 
Brahım bendalı(@yahoo.fr‏ 
الى اللقاء في الدروس القادمة بحول الله أي استفسار 
ضعوه في الموضوع الرئيسي للدورة عبر هذا الرابط 


http://www.startimes2.com/f.aspx?t:21929486 


شکرا 


